home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Win98 Start Menu 3.xpl < prev    next >
Text File  |  2002-01-23  |  4KB  |  127 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows 98"
  5. "NAME"="Start Menu Options"
  6. "VERSION"="4.10"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="001"
  9. "TEXT 1"="dⁿdel dⁿ"
  10. "DESCRIPTION 1"="Programs Context Menu: This allows you to view a standard Explorer context menu when clicking with the right mouse button on an entry in Start->Programs. Note: disabling this will also disable the ability to use drag & drop to move the items inside Programs!"
  11. "DESCRIPTION 2"="Start Menu Context: If this is enabled, a context menu will appear when you click on the Start button with the right mouse button."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="'Multiple Columns' setting from Tom Simpson [thomas@mail.xenafan.com] - thanks a lot!"
  16. "COMMENT 2"="Thanks to Ken [k-o@cyberdude.dk] for the "no drag&drop" notice."
  17. "COMMENT 3"="Thanks to Dutler, Dennis R [dennis.dutler@eds.com] for the "XP screw up" notice"
  18.  
  19.  
  20.  
  21.       sV_CommonGroups="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCommonGroups"
  22. ''''   sV_StartMenuScroll="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms" 
  23.    sV_ProgramsContext="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu"
  24.         sV_AdminTools="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuAdminTools"
  25.         sV_SubFolders="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuSubFolders" 
  26.       sV_IntelliMenus="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IntelliMenus" 
  27.  
  28. sV2_W98a="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms" 
  29. sV2_W98b="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\StartMenuScrollPrograms" 
  30.  
  31. SUB Plugin_Initialize
  32.  '98/2000/ME/XP
  33.  Call SetUIElement(1,"Show Start->Programs context menu")
  34.  Call ReadIt(1,sV_ProgramsContext)
  35.  
  36.  
  37.  '98/NT/2000/ME/XP
  38.  Call SetUIElement(2,"Show user-created folders at top of Start Menu")
  39.  Call ReadIt(2,sV_SubFolders)
  40.  
  41. END SUB
  42.  
  43. SUB Plugin_CheckData(ElementIndex)
  44. END SUB
  45.  
  46. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  Call WriteIt(1,sV_ProgramsContext)
  48.  Call WriteIt(2,sV_SubFolders)
  49.  
  50.  
  51.  Call IndicateSettingChange()
  52. END SUB
  53.  
  54. SUB Plugin_Terminate
  55. END SUB
  56.  
  57.  
  58.  
  59.  
  60.  
  61. Sub ReadIt(ITM,PATH1)
  62.  if RegValueExists(PATH1)=false then 'setting available?
  63.     'no setting -> item visible
  64.     Call SetUIElementEx(ITM,true)
  65.  else
  66.     i=RegReadValue(PATH1)
  67.     if i=0 then 
  68.        Call SetUIElementEx(ITM,true)
  69.     end if
  70.  end if
  71. End Sub
  72.  
  73. Sub ReadIt_2(ITM,PATH1)
  74.  if RegValueExists(PATH1)=false then 'setting available?
  75.     'no setting -> item not visible
  76.     Call SetUIElementEx(ITM,false)
  77.  else
  78.     i=RegReadValue(PATH1)
  79.     if i=1 then 
  80.        Call SetUIElementEx(ITM,true)  
  81.     end if
  82.  end if
  83. End Sub
  84.  
  85. Sub ReadIt_3(ITM,PATH1)
  86.  if RegValueExists(PATH1)=false then 'setting available?
  87.     'no setting -> item is active
  88.     Call SetUIElementEx(ITM,true)
  89.  else
  90.     s=RegReadValue(PATH1)
  91.     if LCase(s)="yes" then 
  92.        Call SetUIElementEx(ITM,true)  
  93.     end if
  94.  end if
  95. End Sub
  96.  
  97. Sub WriteIt(ITM,PATH1)
  98.  b=GetUIElementEx(ITM)
  99.  if b=true then
  100.  
  101.     s=RegReadValue(PATH1)
  102.     if IsEmpty(s)=false then
  103.        Call RegDeleteValue(PATH1)
  104.     end if
  105.  
  106.  else
  107.     Call RegWriteValue(PATH1,1,2)
  108.  end if
  109. End Sub
  110.  
  111. Sub WriteIt_2(ITM,PATH1)
  112.  b=GetUIElementEx(ITM)
  113.  if b=true then
  114.     Call RegWriteValue(PATH1,1,2)
  115.  else
  116.     Call RegWriteValue(PATH1,0,2)
  117.  end if
  118. end Sub
  119.  
  120. Sub WriteIt_3(ITM,PATH1)
  121.  b=GetUIElementEx(ITM)
  122.  if b=true then
  123.     Call RegWriteValue(PATH1,"YES",1)
  124.  else
  125.     Call RegWriteValue(PATH1,"NO",1)
  126.  end if
  127. End Sub